VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BProducto"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"BCategoria"
Attribute VB_Ext_KEY = "Member1" ,"bEstado"
Option Explicit

Private mvarnCodigo As Integer 'local copy
Private mvarsDescripcion As String 'local copy
Private mvarbCategoria As BCategoria 'local copy
Private mvarnPrecio As Double 'local copy
Private mvarbEstado As bEstado 'local copy
Private mvarsCodBarra As String 'local copy
Private mvarsDescripcionLarga As String 'local copy

Friend Property Let sDescripcionLarga(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.sDescripcionLarga = 5
    mvarsDescripcionLarga = vData
End Property


Friend Property Get sDescripcionLarga() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.sDescripcionLarga
    sDescripcionLarga = mvarsDescripcionLarga
End Property



Friend Property Let sCodBarra(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.sCodBarra = 5
    mvarsCodBarra = vData
End Property


Friend Property Get sCodBarra() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.sCodBarra
    sCodBarra = mvarsCodBarra
End Property



Friend Property Set bEstado(ByVal vData As bEstado)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.bEstado = Form1
    Set mvarbEstado = vData
End Property


Friend Property Get bEstado() As bEstado
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.bEstado
    Set bEstado = mvarbEstado
End Property



Friend Property Let nPrecio(ByVal vData As Double)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nPrecio = 5
    mvarnPrecio = vData
End Property


Friend Property Get nPrecio() As Double
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nPrecio
    nPrecio = mvarnPrecio
End Property



Friend Property Set BCategoria(ByVal vData As BCategoria)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.bCategoria = Form1
    Set mvarbCategoria = vData
End Property


Friend Property Get BCategoria() As BCategoria
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.bCategoria
    Set BCategoria = mvarbCategoria
End Property



Friend Property Let sDescripcionCorta(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.sDescripcion = 5
    mvarsDescripcion = vData
End Property


Friend Property Get sDescripcionCorta() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.sDescripcion
    sDescripcionCorta = mvarsDescripcion
End Property



Public Property Let nCodigo(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nCodigo = 5
    mvarnCodigo = vData
End Property


Public Property Get nCodigo() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nCodigo
    nCodigo = mvarnCodigo
End Property



Private Sub Class_Initialize()
Set BCategoria = New BCategoria
Set bEstado = New bEstado
End Sub
